home *** CD-ROM | disk | FTP | other *** search
- .key ""
- .bra {
- .ket }
- assign from{$$}: "" ; aktuelles Verzeichnis merken
- resident c:copy add pure ; einen Diskettenwechsel einsparen
- resident c:dir add pure ; noch einen Diskettenwechsel einsparen
- resident c:echo add pure
- resident c:setenv add pure
- failat 21
- lab y
- lab yes
- echo "*Ec *E[4mDrucker-Installationsprogramm*N*N*E[0mVerfügbare Drucker:*N"
- cd "Extras1.3D:devs/printers"
- IF error
- skip err
- ENDIF
- dir
- echo "*NWelcher Drucker ? (RETURN für Abbruch drücken) " noline
- setenv >NIL: q{$$} ?
- IF $q{$$} EQ ""
- skip err
- ENDIF
- echo >>env:q{$$} " to devs:printers"
- echo "Nun gewählten Druckertreiber nach devs:printers kopieren."
- copy <env:q{$$} >NIL: ?
- IF ERROR
- echo "Fehler beim Kopieren. Nochmal versuchen (y/n) ? " noline
- skip >NIL: back ?
- ELSE
- echo "Nun diesen Drucker mit Preferences auswählen."
- ENDIF
- lab err
- endskip
- cd from{$$}:
- assign from{$$}:
- resident copy remove
- resident dir remove
- resident echo remove
- resident setenv remove
-